home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Astronomy / Moon / Source / astro.h < prev    next >
Text File  |  1993-01-19  |  2KB  |  46 lines
  1. /* astro.h
  2.  * Part of the Moon application for the NeXT computer.
  3.  * Authors:  John Walker of Autodesk
  4.  *           Geoffrey S. Knauth (NeXT port)
  5.  * Date:     January 4, 1992
  6.  *
  7.  * This code was placed in the public domain by John Walker.
  8.  */
  9.  
  10. /*  Astronomical constants  */
  11.  
  12. #define epoch        2444238.5       /* 1980 January 0.0 */
  13.  
  14. /*  Constants defining the Sun's apparent orbit  */
  15.  
  16. #define elonge        278.833540       /* Ecliptic longitude of the Sun
  17.                       at epoch 1980.0 */
  18. #define elongp        282.596403       /* Ecliptic longitude of the Sun at
  19.                       perigee */
  20. #define eccent      0.016718       /* Eccentricity of Earth's orbit */
  21. #define sunsmax     1.495985e8     /* Semi-major axis of Earth's orbit, km */
  22. #define sunangsiz   0.533128       /* Sun's angular size, degrees, at
  23.                       semi-major axis distance */
  24.  
  25. /*  Elements of the Moon's orbit, epoch 1980.0  */
  26.  
  27. #define mmlong      64.975464      /* Moon's mean lonigitude at the epoch */
  28. #define mmlongp     349.383063       /* Mean longitude of the perigee at the
  29.                       epoch */
  30. #define mlnode        151.950429       /* Mean longitude of the node at the
  31.                       epoch */
  32. #define minc        5.145396       /* Inclination of the Moon's orbit */
  33. #define mecc        0.054900       /* Eccentricity of the Moon's orbit */
  34. #define mangsiz     0.5181         /* Moon's angular size at distance a
  35.                       from Earth */
  36. #define msmax       384401.0       /* Semi-major axis of Moon's orbit in km */
  37. #define mparallax   0.9507       /* Parallax at distance a from Earth */
  38. #define synmonth    29.53058868    /* Synodic month (new Moon to new Moon) */
  39. #define lunatbase   2423436.0      /* Base date for E. W. Brown's numbered
  40.                       series of lunations (1923 January 16) */
  41.  
  42. /*  Properties of the Earth  */
  43.  
  44. #define earthrad    6378.16       /* Radius of Earth in kilometres */
  45.  
  46.